home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_wof.lha / wof.lha / support.lha / incentive / SysOpReg < prev    next >
Text File  |  1997-04-17  |  8KB  |  64 lines
  1. /**************************************************************************\
  2.           $VER: WOF Incentive Viewer, v6.50 (17-Feb-97) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  8. START:tr 'f1c9ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
  9. tr '³cbr1    The Registered Wheel of Fortune Viewer Program, 'word(sourceline(2),5)' by Dotoran!     r0c9³'
  10. tr 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙn1'
  11. se '   c6Welcome to the cfViewer Programc6! This program allows you to view selected '
  12. se 'screen shots of the available files for cddownload c6for cfREGISTERED cbWheel of '
  13. se 'Fortune c6owners. Please take a look at these files, then read the included '
  14. tr 'caREGISTER.GUIDE c6file for more information on how to cfregister c6this game.n2'
  15. tr 'Ccf1cb: caThe Game Editor              cf2cb: c2The Puzzle Editorn1'
  16. tr 'Ccf3cb: c2The Color Editor             cf4cb: caThe History Editorn1'
  17. tr 'Ccf5cb: caThe "Reg" Graphic Editor     cf6cb: c2The CONFIG Programn1'
  18. tr 'Ccf7cb: c2The Head-2-Head Module       cdQcb: cdQuit the Registered Viewern2'
  19. se 'Cc6Which cescreenc7(cesc7) c6would you like to cblook c6at? c7(ce1c7-ce7c7/cf[cdQcf]c7)c9: ces';gc;a=result
  20. if index('1234567',a)=0|a=''|a='Q' then do;tr 'ucdQuit';exit;end;tr a;a='VIEW'a;signal (a)
  21. VIEW1:;se '*4'df'GameEditor}';se '@4n1>5cfFirst of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  22.   se '*4'df'GameEditor.Players}';se '@4n1>5cfSecond of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  23.   se '*4'df'GameEditor.GameData}';se '@4n1>5cfThird of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  24.   se '*4'df'GameEditor.LastPlayer}';se '@4n1>5cfFourth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  25.   se '*4'df'GameEditor.LastReset}';se '@4n1>5cfFifth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  26.   se '*4'df'GameEditor.Stats}';se '@4n1>5cfSixth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  27.   se '*4'df'GameEditor.Winner}';se '@4n1>5cfSeventh of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  28.   se '*4'df'GameEditor.Winners}';se '@4n1>5cfEighth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  29.   se '*4'df'GameEditor.BWinners}';se '@4n1>5cfNinth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  30.   se '*4'df'GameEditor.BWinner}';se '@4n1>5cfTenth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  31.   se '*4'df'GameEditor.Millionaires}';se '@4n1>5cfEleventh of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  32.   se '*4'df'GameEditor.BMillionaires}';se '@4n1>5cfTwelth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  33.   se '*4'df'GameEditor.Bankers}';se '@4n1>5cfThirteenth of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  34.   se '*4'df'GameEditor.Reset}';se '@4n1>5cfLast of 14 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  35. VIEW2:;se '*4'df'PuzzleEditor}';se '@4n1>5cfPress ENTER to Continue...';gc;signal START
  36. VIEW3:;se '*4'df'ColorEditor.Loader}';se '@4n1>5cfFirst of 5 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  37.   se '*4'df'ColorEditor.Title}';se '@4n1>5cfSecond of 5 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  38.   se '*4'df'ColorEditor.Play}';se '@4n1>5cfThird of 5 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  39.   se '*4'df'ColorEditor.Wedges}';se '@4n1>5cfFourth of 5 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  40.   se '*4'df'ColorEditor.Lists}';se '@4n1>5cfLast of 5 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  41. VIEW4:;se '*4'df'HistoryEditor.Config}';se '@4n1>5cfFirst of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  42.   se '*4'df'HistoryEditor.History}';se '@4n1>5cfLast of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  43. VIEW5:;se '*4'df'RegGraphicEditor.Screen1}';se '@4n1>5cfFirst of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  44.   se '*4'df'RegGraphicEditor.Screen2}';se '@4n1>5cfLast of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  45. VIEW6:;se '*4'df'CONFIG.First}';se '@4n1>5cfFirst of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  46.   se '*4'df'CONFIG.Second}';se '@4n1>5cfLast of 2 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  47. VIEW7:;se '*4'df'H2H.Loader}';se '@4n1>5cfFirst of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  48.   se '*4'df'H2H.PickFace}';se '@4n1>5cfSecond of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  49.   se '*4'df'H2H.FaceHelp}';se '@4n1>5cfThird of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  50.   se '*4'df'H2H.Faces1}';se '@4n1>5cfFourth of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  51.   se '*4'df'H2H.Faces2}';se '@4n1>5cfFifth of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  52.   se '*4'df'H2H.Game}';se '@4n1>5cfSixth of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  53.   se '*4'df'H2H.GameHelp}';se '@4n1>5cfSeventh of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  54.   se '*4'df'H2H.Help1}';se '@4n1>5cfEighth of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  55.   se '*4'df'H2H.Help2}';se '@4n1>5cfNinth of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START
  56.   se '*4'df'H2H.Help3}';se '@4n1>5cfLast of 10 screen shots... Q to Quit, ENTER to Continue...';gc;a=result;if a='Q' then signal START;signal START
  57. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  58.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  59.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  60.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  61.   bufferflush
  62. /**************************************************************************\
  63. \****************************************** Frontiers BBS (716)/823-9892 **/
  64.